home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
program
/
mlht02.zip
/
Homepg5.bas
< prev
next >
Wrap
BASIC Source File
|
1996-07-01
|
927b
|
35 lines
'
' Sample program for
' Mike Lehman's HotTEA - level 1
'
sub main()
'
' load and play our teapot animation
'
i=animate(0,0,100,100,'','images/teapots3.gif',250,11,1)
'
' load an image for our client-side image map
'
j=image('','images/imap1.gif')
'
' now move it into position (initially hidden)
'
q=move(j,100,0)
end sub
'-------------------------------------------------
'
' This subroutine is entered each time
' the user clicks the mouse on a portion
' of this applet NOT containing an animation
'
sub mouse_click()
' note: inrect parameters(x,y,l,t,w,h)
if inrect(xparm,yparm,100,0,80,50) q=showurl('./whatsnew.html','_self')
if inrect(xparm,yparm,100,50,80,50) q=showurl('./login.html','_self')
if inrect(xparm,yparm,180,0,80,50) q=showurl('./tryit.html','_self')
if inrect(xparm,yparm,180,50,80,50) q=showurl('./cereus.html','_self')
end sub